home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / faceloader.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  188 b   |  17 lines
  1. DIM Array%(563)
  2.  
  3. OPEN "Face" FOR INPUT AS 1
  4.   FOR x=0 TO 563
  5.     Array%(x)=CVI(INPUT$(2,1))
  6.   NEXT x
  7. CLOSE 1
  8.  
  9. CLS
  10. FOR x=0 TO 5
  11.   FOR y=0 TO 4
  12.     PUT (x*100,y*40),Array%
  13.   NEXT y
  14. NEXT x
  15.  
  16.  
  17.